#!/usr/bin/perl
package csversion;
sub csversion {
    my ($csnum,$VER,$remote,$tonum) = @_;
print $remote "$csnum O $tonum :\026$VER for P10 ircds\n";
print $remote "$csnum O $tonum :Developed by Nicolas Huang <customlinux\@users.sourceforge.net>\n";
    my $uname = `uname -ms`;
    $uname =~ s/\n//g;

    print $remote "$csnum O $tonum :Machine/OS :$uname\n";
    print $remote "$csnum O $tonum :Copyright (c) 2002 All Rights Reserved.\n";

}
1;

